
Imports ModuloAdministraciondeEnvios.Entity
Imports ModuloAdministraciondeEnvios.BusinessLogicLayer
Imports System.Data.SqlClient

Namespace DataAccessLayer
    Public Class DataMovil

        Inherits Moviles
        Implements IMovil



        Public Function TraerMovilesTodos() As System.Data.DataSet Implements BusinessLogicLayer.IMovil.TraerMovilesTodos

            Try

                Dim Conecta As New SqlConnection(StringConecta)
                Comando = New SqlCommand(StringComando, Conecta)
                Comando.CommandText = "Movil_SelectAll"
                Comando.CommandType = CommandType.StoredProcedure

                Dim Adapter As SqlDataAdapter = New SqlDataAdapter(Comando)
                Dim Ds As DataSet = New DataSet(Comando.CommandText)

                Adapter.Fill(Ds)

                Return Ds

            Catch ex As Exception

                MsgBox("No pudo por que " & ex.Message)

                Return Ds

            End Try



        End Function

    End Class
End Namespace